Option Explicit
Sub A_Sample060()
    Dim myWb  As Workbook
    Set myWb = Workbooks.Add
        MsgBox myWb.Name
    Set myWb = Nothing	'
End Sub
